home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
bitcat
/
ab.frm
next >
Wrap
Text File
|
1995-05-08
|
2KB
|
78 lines
VERSION 2.00
Begin Form AB
BackColor = &H00808080&
BorderStyle = 3 'Fixed Double
ClientHeight = 1080
ClientLeft = 3720
ClientTop = 3315
ClientWidth = 2535
ControlBox = 0 'False
ForeColor = &H00000000&
Height = 1485
Left = 3660
LinkMode = 1 'Source
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1080
ScaleWidth = 2535
Top = 2970
Width = 2655
Begin CommandButton Command1
Caption = "&OK"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 360
Left = 135
TabIndex = 2
Top = 630
Width = 2265
End
Begin Label Label2
BackColor = &H00808080&
Caption = "Written By: Sean Bishop"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FFFFFF&
Height = 240
Left = 405
TabIndex = 1
Top = 330
Width = 1785
End
Begin Label Label1
BackColor = &H00808080&
Caption = "Bitmap Catalog"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FFFFFF&
Height = 210
Left = 750
TabIndex = 0
Top = 120
Width = 1140
End
End
Sub Command1_Click ()
AB.Hide
End Sub
Sub Form_Click ()
AB.Top = (Screen.Height / 2) - (AB.Height / 2)
AB.Left = (Screen.Width / 2) - (AB.Width / 2)
End Sub